home *** CD-ROM | disk | FTP | other *** search
/ Professional Soft Collection 1.02 / Professional Soft Collection 1.02.iso / communic / bitfax.300 / disk1 / comserv.sc_ / comserv.bin
Encoding:
Text File  |  1994-04-19  |  992 b   |  35 lines
  1. trace(0)
  2. :start
  3.     @c=1
  4.     typecr("Select the CompuSrv Record ID...")
  5.     selpbk(default)
  6.     select(CompuSrv)
  7.     if ( @mode <> 1 ) @mode = 1     { set it to call mode }
  8.     twait(1,"sec")    
  9.     docomm
  10.  
  11. :loop1
  12.     twait(2,"sec");
  13.     if ( @conn = 0 ) goto :abort     { abort if disconnected }
  14.     if ( @conn = 1 ) goto :done      { continue on if connected }
  15.     poscur(1,9)
  16.     goto :loop1
  17.  
  18. :done
  19. { Autologon file for CompuServ Network }
  20. { Replace x's and y's with your own ID }
  21. { and password                         }
  22.  
  23.    twait(1, "sec")         { wait for 1 second }
  24.    "$03"                   { send Cntl-C character }
  25.    cwait("ID:")            { wait until 'ID:' string received }
  26.    "xxxxx,xxxx$0d"
  27.  {  "xxxxx,xxx$0d"      }    { send login id followed by carriage return }
  28.    cwait("word:")          { wait for pass'word:' prompt }
  29.   "yyyyyyy/yyyyy$0d"
  30. {   "yyyyy/yyyyyy$0d"  }     { send password followed by carriage return }
  31.  
  32. :abort
  33.     exit
  34.  
  35.